home *** CD-ROM | disk | FTP | other *** search
/ CD-ROM Today - The Disc! 5 / CD-ROM Today - The Disc (Issue 5)(November 1994).ISO / mac / Mac shareware / Education / RLaB / rlib / dot.r < prev    next >
Encoding:
Text File  |  1994-09-21  |  425 b   |  20 lines  |  [TEXT/ttxt]
  1. //---------------------------------------------------------------------------
  2. //  dot.r
  3.  
  4. //  Syntax:    dot ( A , B )
  5.  
  6. //  Description:
  7.  
  8. //  Compute the dot product of two vectors, A and B.
  9. //---------------------------------------------------------------------------
  10.  
  11. dot = function ( A , B )
  12. {
  13.   if (min (size (A) != 1) || min (size (B) != 1)) {
  14.     error ("dot: A and B must be vectos");
  15.   }
  16.   return sum (A[:] .* B[:])
  17. };
  18.  
  19.  
  20.